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and internal exec routines. 


NOUS WIC OO 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 6=Jan-1977 23:29 


; : sre Pact LANGUAGE | (BLI$$32), 
ea DENT ee yokeb00" 
3 & )s ; 
; 5 d BEGIN : 
; oF 1: 
: 3 UF : leuseeeneucenseeaneusensnecenavererecerereeseerrerneennenneeneenennneneeeeees ° 
3 HOS ‘@ w $ 
F 0 0010 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
3 1 D017 «+1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
3 § \§ : : ALL RIGHTS RESERVED. ~ | : 
: 4 14 1 ie THIS SOFTWARE IS Pyne sneo moe A LICENSE AMD MAY pe USED AND copieD * | : 
3 5 15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
3 $ 1 1 !* INCLUS 0 ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
3 1 1 !® COPIES THEREOF MAY NOT BE VIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
3 8 \% 1 !* OTMER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; ? : :* TRANSFERRED. * : 
4 I ‘@ a . 
3 1 1 1 '@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
3 ; § 1 '@ AND sue NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ‘ 
3 5 $4 : - CORPORATION. : | : 
; 5 88 © 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
3 $ : 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
g 00 1 ‘@ ® . 
3 8 09 3 1 'e t Py 
Zz ; Be 0 : lee eRe eeeRReAARHAHKAHAAAeeHHKeHeHHKeHH Hee teeeeeeteeeeKeeeteeteeeteekeneeenes ; 
; 3 0031 1 !4¢ | ; 
3 § 00 ; 1! : 
; BB : : FACILITY: FI1ACP Structure Level 2 ; 
; & 0035 1 i ABSTRACT: | : 
: : a8 1 j This routine implements the DEACCESS function. | : 
: 39 003 1 | ENVIRONMENT : ; 
; $04 ; STARLET operating system, including privileged system services ; 
: 1 3 
; 1 s 
; 1 3 
; 1 § 
3 1 : 
; 1 3 
3 1 3 
; 1 : 
3 1 : 
3 1 3 
3 1 3 
r 1 : 
; 1 3 
; 1 : 
§ 1 3 


i i MODIFIED BY: 

3 v03-012 CDS0008 Christian D. Saether 21-Aug-1984 
2¢ Changes to handle stale fcbs. 

re v03-011 Cos0007 Christian D. Saether 19-Apr-1984 

2? Many changes to reflect modified access lock "Lendl ine. 
§ v03-010 CDS0006 Christian D. Saether 29-Dec-1983 


Ee eee ee ee ee x _ 1 es 


; : 
Whe s600 1$-sSe0-1984 99: 48:7o NES cSumGMAgTERcCH TixceneaDEaccs.032:10%" (15 


Use L_NORM Linkage and BIND_COMMON macro. 


. 1 ' 

a. 888 | | 
; 060 1 | v03-009 cDS0005 Christian D. Seether — 23-Sep-1983 

: 1 00¢ ! Manually merge in ACGOS«S, AcG59616. STJ 1080” 

3 63 06 1 | V03-008 ACG0343 Andrew C. Goldstein 19-Jul-1983 16:46 

; 6 D064 i ; Inhibit revision date count if NORECORD is specified 

; 68 6 1 V03-007 ACG59616 Andrew C. Goldstein, 21-Jun-1983 15:53 
: 6 ; Create common subroutine for revision and expiration dates | 
: $3 1/ v03-006 $TJ3109 Steven 1. Jeffreys, 06-Jun-1983 
3 £9 : Copy FHWM from FCB to file header. 

eS 1! v03-005 CDS0004 Christian D. Saether 14-Sep-1983 | 
; oP : Modify SERIAL_FILE interface. 

: 75 1 / v03-004 LMP0149 L. Mark Pilant, 13-Sep-1983 11:26 

: 7 1: Correct a logic problem that caused problems during the 

3 f ; protection check of a write attribute operation. 
eS. 1 V03-003 CDS0003 Christian D. Saether 4-May~1983 

3 30 : } Sychronize processing by FID using SERIAL_FILE. 

; B 1/ v03-002 CDS0002 Che‘stian D. Saether 21-Apr-1983 

; 7! Modify truncate access arbitration checks to permit 

; 1: cluster operation. Possibly defer truncation or 

; 89 : perform a deferred truncate operation. 

; Hi 1 v03-001 ¢DdS0001 Christian D. Saether 7-Apr-1983 

: 4 : Make mark-for-delete checks work in a cluster. | 
; $0 1! v02-006 ACG0258 Andrew C. Goldstein, 26-Jan-1982 16:56 | 
: 4 : Fix reference to RVN 1 in expiration date processing | 
: 38 1 v02-005 ACG0230 Andrew C. Goldstein, 23-Dec-1981 23:46 | 
3 Be : } Add expiration date support 
; %6 1 v02=004 ACG0247 Andrew C. Goldstein, 23-Dec-1981 20:49 | 
3 44 ’ Update revision count only if written 

: 99 1} v02-003 ACG0245 Andrew C. Goldstein, 23-Dec-1981 20:48 | 
3 190 : : Move queueing of spool file to cleanup 

: 182 1 i vO2-002 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 

3 + : : Previous revision history moved to fF118.SRCJF11B. REV 

3 ‘ee 

; 105 1 

3 54 1 

c< 1 LIBRARY  SUSSL JORARY 1 18,L52°; 

3 is ! REQUIRE ‘SRC$:FCPDEF 832°; 

; 110 1 FORWARD ROUTINE 

s 11 1 SET_REVISION : L NORM NOVALUE » ! set revision and expiration date 

3: 12 1 TRUNC_HANDLER; : handler for delayed truncate 


ee ee L 


Sm 


3 113 i} 3 } GLOBAL ROUTINE DEACCESS =: L_NORM = 

: 13 10% 1h 

: 118 i FUNCTIONAL DESCRIPTION: 

4 9 11 1 i This routine implements the DEACCESS function. 

3 : 1 : if an attribute List is present, attributes are written. 

4 : 1316 1 | CALLING SEQUENCE: 

3 : : BEE ! DEACCESS () 

9 6 1115 1 | INPUT PARAMETERS: 

Bi feecg 8) at 

>: 129 1118 1) IMPLICIT INPUTS: 

, 4 1119 1! 10_PACKET: 1/0 packet in process 

s 133 1120 1! CURRENT _WINDOW: window of file 

$ : ¢ 1 1 : PRIMARY_FCB: FCB of file 

: 1 11 : 1 | OUTPUT PARAMETERS: 

3 ; 5 1 3 : NONE 

> 1 1126 1! IMPLICIT OUTPUTS: 

BR 0 | lee 

: 140 1129 1 | ROUTINE VALUE: 

Pccate ip 

; 128 1 é 1 | SIDE EFFECTS: 

; 146 11 1! file deaccessed 

3; «6145 1134 1! FCB may be deleted 

: 146 1135 1! header may be modified 

3; 1467 11 $ 1! 

; 148 11 1 !-- 

: 188 1139 2 BEGIN 

: 18 1141 5 LABEL 

; 188 Bg DELAY_TRUNC; ! truncation delay block 
TE WE $ voen 

: 156 1145 DO_EXPIRE, ' flag indicating qypsretien to be updated 
3 937 1146 MODIFIED, ' flag indicating file has been modified 
; 158 114 K ' Local copy of truncate lock count 
; 189 1148 ABD REF BBLOCKVECTOR [ ABDSC LENGTH, 

: 160 1149 FIB REF BBLOCK, | FIB 

; 161 1150 FCB REF BBLOCK, ' pointer to FCB 

3 166 1151 HEADER REF BBLOCK; !' file header 

18 1188 § Bino_common: 

> 165 1184 . ’ 

. § 1155 EXTERNAL ROUTINE 

: 16 1138 REBLD_PRIM_FCB : L_NORM NOVALUE, ! rebuild primary fcb from header 
: 168 11 BUILD-EXT FCBS : L-NORM NOVALUE, ! build extension fcb chain 
: 198 11 8 V_ACCLOCK : LINORM, ' convert access lock. 

; 170 11 LOCK_COUNT : L_NORM, ! get count of granted locks. 
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PRIM_LCKINDX = SERIAL_FILE (FCB CFCBSW_FIDI); 
: Make sure irrelevant parameters are not present. 


IF .FIBCFIBSV_EXTEND) 

THEN ERR_STATOS (SS$_BADPARAM) ; 

i 

i 
} 
| 
| 
| 
| 
| 
| 
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If the access lock is held in NL mode, and this file i 
accessible, then set the stale flag to force rebuild o 
from the header(s). 


s cluster 
f the fcbs 


1 1 TRUNE fAtE L_NORM ! interlock file processing 
1 1 es : L_JSB 2aRGs NOVALUE, parameter checks 
1 1 crt : LINORA, ' get FIB of request 
1 1 READ_HEADER : LINORM, i read file header 
175 1 MARK" DIRTY : LUNORM, ' mark bu fer for write-back 
178 1 waite ATTRIB : LUNORM, ! write attributes routine 
1 1 TRUNCATE : LUNORM, ! truncate file 
1 16 UPDATE FCB : LUNORM, ! update contents of FCB 
! } CHECKSOM : LINORM; ! compute file header checksum 
181 5 ! Set the cleanup flags to cause the deaccess to occurr. 
; } ; : Find the buffer descriptor and FIB. 
1 17 
185 174 CLEANUP _FLAGSCCLF_27CHANN 
1 175 pert ELETDEACCESS 
176 CLEANUP~FLAGSCCLF-DELWI WINDOW) = Hi 
1 178 ' tere ter to buffer descriptors 
1 17 ABD = .BBLOCK (.10_PACKETCIRPSL_SVAPTE]), “ALBSL “DESC RIPT j; 
1 1 FIB = GET _FIB (ABB); 
= . 
1 2 FCB PRIMARY FCB; | 
; : Synchronize further file processing. 
1 185 
1 1 
1 1 
1 1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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If .FCB rce Cecese ACCLKMODE) EQL LCKSK_NLMODE 
-FCB CFCBSL_ACCLKID) NEQ 0 


"rce CFCBSV_STALE) = 1; 


' Determine if the ore icotten date is to oe updated, and if the file has 
actually been modi 


OO-10 Vw OO 


FYBCF IBS ETOR 

wl NDOw WCBSL waITES) wee 0 
ae UECRRERY WINDOW(WCBSL_READS) NEQ 0 
OR .FCBCFCBSL_EFBLK) EQL 0); 

N NDOW 


DO_EXPIRE = ani NOTE FTBUTLBSv NORE EXPIRE) 
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OR 
AND (. CURRENT WI] npoutycebL WRITES) NEQ 0 
OR .JO_PACKETCIRPS$SW_BCAT) GTRU ABDSC_ATTRIB 
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OR .FIBCFIBSV_TRUNC)); 
! If the i\¢ is occess d for write, if we must update the expiration 


' 
' date, or the s marked for delete or is marked bad and this 
i is the last access, read the header. 
If . CURRENT WINDOWLWCBSV_WRITE) 
OR .DO_EXPIRE 
OR ((.PCBCFCBSV_MARKDEL) 
OR .FCB CFCBSV_DELAYTRNC) 
OR .FCB raaee STALE 
OR .FCBCFCBSV_BADBLK 
OR rE AaUP FCAGSCCLF_SPOOLF ILE) 
AND .FCBLFCBSW_REFCNT) EQC 1) 
THEN 
BEGIN 
HEADER = READ_HEADER (0, .FCB); 
If .FCB CFCBSV_STALEJ 
THEN 


EGIN 
REBLD_PRIM_FCB (.FCB, .HEADER); 
BUILD_EXT_FCBS (HEADER) ; 


‘ if this the last deaccess from a file marked for delete, delete the file. 


' 
: the file is a spool file, send it to the job controller. 
IF .FCBCFCBSW_REFCNT) EQ. 1 
THEN 
BEGIN 
If .FCBCFCBSV_MARKDEL) 
THEN 
: Make sure we are the only accessor left in the entire cluster. 


i LOCK_Count (.FCB CFECBSL_ACCLKIDJ) EQ. 1 
CLEANUP_FLAGS CCLF_DELFILE] = 1; 


IF .CLEANUP_FLAGSCCLF SPOOLF ILE] 
THEN CLEANUP. FLAGSECLF DOSPOOL = 1; 


: If the FCB is marked bad, now set the bad block bit in the file header. 
IF .FCBCFCBSV_BADBLK) 
THEN 


BEGIN 
HEADERCFH2$V_BADBLOCK) = 1; 
eee (HEADER) ; 
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4 | 
rs : Update revision count, date, and expiration date as appropriate. 
7 5° | 
7 If .MODIFIED 
7 OR XPIRE 


-DO 
THEN SET_REVISION (.HEADER, .MODIFIED); 


! Do deaccess greceentny for a write pccoseee file. If a deaccess lock 
! was requested on the Tile, set the lock bit. Then process the write 
: pttr ibytes. if any. If attributes were written, then clear the 

i 


MPwn—oO 


ock bit. 


IF_ CURRENT _WINDOWCWCBSV_WRITE) 
THEN 


BEGIN 
MARK_DIRTY (.HEADER); 


! Update the FHWM in the file header. 


Vw 


o If the FHWM is not supported in this header, do nothing. 


o If the volume FHWM attribute is disabled, then set the FHWM 
to the file size + 1. This will protect the contents of the 
file should it be opened and modified some time in the future 
when the volume's FHWM attribute is enabled. 


1 
i 
i 
! 
i 
i 
i 
! o If the FCB FHWM is 0, and the file header supports FHWM, then 

' set the header's FHWM to the file size + 1. his will likewise 
} protect the file contents. 

i 

i 

i 

i 

i 

i 

i 


o If the FCB FHWM is nonzero, and the file header supports FHWM, and | 
the volume FHWM attribute is enabled, simply copy the FCB FHWM to 
the file header. 
| 
| 


For FHWM to be supported, the ‘highwater’ field in the 
header must be present. ALl files created on version 4 
or later systems will have this characteristic. 


MMNNNUNID 2 2 


MEW 0 OBNOU SW —“OCOONOUfwn oO 4 


FF gg MEADEREFUZOR_IBOFF SETS GEQU (SBYTEOFFSET(FH2$L_HIGHWATER) +4) /2 


IF .CURRENT VCBLVCBS$V_NOHIGHWATER] 
OR .FCBCFCBSL_HIGHWATER) EQL 0 


5, og ADORE NER, MI GUATER = .FCBCFCBSL_FILESIZEJ + 1 
HEADERCFH2$L_HIGHWATER] = .FCBCFCBSL_HIGHWATER); 


IF .CURRENT WINDOWCWCBSV_DLOCK) 
THEN HEADERTFH2$V_LOCKED] = 1; 


IF 10 PACKETCIRPSY_BCNT] GTR ABDSC_ATTRIB 
AND USER, STATUS } 
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BEGIN | 
WRITE_ATTRIB ( HEADER, «ABD, 0); 
HEADER = .FILE_H ADER: 

, HEADERFHESV, LOCKED = 0; 


! If a truncate is requested, do it, if the file was write accessed and 
! there are not other accessors now, else delay the truncation until | 
the last reader deaccess. 


- 


MEUM O OBNOUES WN "CO OCODNOUES NOOO 


TRUNCJ 


IF .FiBCFIBSV C 
T .FCB CFCBSV_MARKDELJ 


BEGIN 
IF _ CURRENT vcobycesy NOALLOC] 
THEN ERR_EXTT (SS$_WRITLCK); 


| 
| 
IF .£CB CECBSW REF CNT) EOL 1 | 
AND LOCK_COUNT (.FCB CFCBSL_ACCLKIDJ) EQL 1 | 

| 


BEGIN 


CHECKSUM (.HEADER); 
TRUNCATE FB .HEADER, .F18 CFIBSL_EXVBNJ); 
CLEANUP_FLAGSCCLF_FIXFCB) = 0 

UPDATE_FCB (.FILE-HEADER 


ELSE 
IF .FCB CFCBSW_WCNT] EQL 1 ! 1 is just us. 
(FC ails ' must be a NOLOCK somewhere 
OR .FCB CFCBSW_LENT) NEQ O ! must be us 


~~ 


; 


' Lock will be converted back 
! im MAKE_DEACCESS 


There are other readers, but no writers, accessing the file, so we will make | 


checks to see if the truncation arguments make sense, and if so, 
store appropriate context in the FCB so that the last reader to deaccess 
the file will perform the truncation. 


TRNVBN; 


TRNVBN = .FIB CFIBSL_EXVBN); 
TRUNC_CHECKS (.FIB, -HEADERS; 


lock will be converted when new lock mode is calcuated and lock 
converted in MAKE_DEACCESS. Even if it was not converted up to 
Pw above (i.e., was already held in either), it will have to be 
Leyeres because this thread means the last writer on this node is 
going away. 
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FCB CFCBSV_DE 
FCB FCBSL-TRUNCVBN = .TRNVBN; 
tis FIBSL_EXVBN] = .FCB CFCBSL_FILESIZEJ + 1; 
ELSE 
ERR_EXIT (SS$_ACCONFLICT); 
END; ! of wanted to do a truncation 
END ! of was write accessed. 
LSE 
ELAY_TRUNC: 
BEGIN ' not write accessd 


BUILTIN FP; 
LOCAL SAVE_US1; 


IF NOT .FCB CFCBSV_DELAYTRNC) 
THEN LEAVE DELAY_TRUNC; 
IF .FCB CFCBSW REF CNT NEQ 1 
R .FCS CFCBSV_MARKDEL) 
OR .FCB CFCBSL TRUNC YEN) EQL 0 
OR_LOCK_COUNT T.FCB CFCBSL_ACCLKID]) NEQ 1 
THEN LEAVE BELAY_TRUNC; 


SAVE US1 = .USER STATUS [1]; 
CHECRSUM (.HEADER) ; 


E 
D 
-FP = TRUNC_HANDLER; 
TOUMCATS (SECOND_F 16, HEADER, .FCB CFCBSL_TRUNCVBN)); 
FP = 0; 
USER_STATUS [1] = .SAVE_US1; 
END; 
: Return failure to let the error cleanup do the actual deaccessing. 
RETURN 0; 
END; ! end of routine DEACCESS 
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FILE, TRUNC~ CHECKS 
FIG, REA 


D_HEADER 
DIRTY, WRITE ATTRIB 
TRUNCATE, UPDATE_FCB 
CHECKSUM 
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1B-se-19 12:4 VAX-11 Bliss-32 V4.0-742 12. D 
1ensee-j one 99:48:78 DISKSVMSMASTER:CF11X.SRCIDEACCS.B32;1 goee (2) | V 
| 
1 BNEQ 28$ s 
34 22 a2 3 E ; BBS #1, 34(FCB), 288 + 1411) 
50 Ae p C TSTL (FCB) : 1412. y 
eF f BEQL $ : ; 
48 Ae DD 00241 PUSHL (FCB) ; 1413, 
68 FB 00244 CALLS #1, LOCK_COUNT : | 
1 0 9 47 CMPL Be #1 : | 
4 4A BNEG 286 ; | 
53 04 Ag D 4 MOVL 4(R6), SAVE_US1 : 1416, 
DD PUSHL HEADER 6 + 141 
00006 CF 1 FB CALLS #1, CHECKS : 
6D 009ov CF 9E VAB  TRUNC_HANDLER, (FP) + 1419 
A2 0D C PUSHL 80 (FCB) + 1420 
BD F PUSHL HEADER : 
0244 cA F 00261 SHAB 580(BASE) : 
00006 CF 3 FB 00265 CALLS #3, TRUNCATE : 
D4 0026A CLRL (FP) + 1421 
04 Ab DO 6 MOVL § SAVE_US1, 4(R6) + 1423 
4 28$: CLRL RO : 1430 
4 0027 RET + 1432 


; Routine Size: 627 bytes, Routine Base: S$CODE$S + 0000 
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ROUTINE TRUNC_HANDLER (SIGNAL, MECHANISM) = 
tee 
' 

fee 

BEGIN 

SIGNAL : REF BBLOCK, 

MECHANISM : REF BBLOCK; 

IF .SIGNAL CCHFSL_SIG_NAME] EQL SS$_CMODUSER 
SUNWIND (DEPADR = MECHANISM CCHFSL_MCH_DEPTH]); 


SS$_RESIGNAL 
END; 


LEXTRN 
0000 00000 TRUNC HANDLER: 
50 046 AC pO 00002 MOVE 
00000424 aF 04 Ad D1 00006 CMPL 
OE 12 O000E BNEG 
7E D4 00010 CLAL 
7E 08 Ac 08 1 0012 ADDL3 
000000006 00 02 FB 0001 CALLS 
500918 «BFC O001E 18 MOVZWL 
04 000 T 


36 bytes, Routine Base: S$CODE$ + 0273 


SYSSUNWIND 


Save nothing 
IGNAL, 
4(RO), “#1060 
1$ 
-(SP) 


ae MECHANISM, =(SP) 
35 $so5 SYSSUNWIND 
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GLOBAL ROUTINE SET_REVISION (HEADER, MODE) : L_NORM NOVALUE = 
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ae 
FUNCTIONAL DESCRIPTION: 


This routine updates the revision count and date, and the 
expiration date in the file header as specified. 


i CALLING SEQUENCE: 


SET_REVISION (HEADER, MODE) 
INPUT PARAMETERS: 
HEADER: address of file header to operate on 
MODE: 0 to just update expiration date 
1 to set revision and expiration date 
3 to do above and clear backup date 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
file header modified and marked dirty 


BEGIN 
LABEL 
CHECK_EXPIRE; ! check file expiration date 
MAP 
HEADER : REF BBLOCK, ! file header 
MODE : BITVECTOR; ! routine mode flags 
LOCAL 
DAY_TIME VECTOR FS. ! time of day 
DAY_TIME2 VECTOR » | time of 
: REF BBLOCK, ! UCB of RVN 1 
PRIMARY _VCB REF BBLOCK, ! VCB of RVN 1 
IDENT_AREA REF BBLOCK; ! header ident area 
BIND_ COMMON; 
EXTERNAL ROUTINE 
MARK _DIRTY : L_NORM; ! mark buffer for write-back 
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; Locate the ident area and check that the date fields are present. 


DENT_AREA = .HEADER + ,HEADERCFH2$B_IDOFFSETI #2 
F .MEADERCE HeS8_MPOE Fs eT ee HE ADE EREEMGSB IDOFFSET] LSSU 
YTEOFFSET Fi ose Q_EXPDATE) + FI2$S_ERPDATE) 


( 
THEN RETURN: ™ 
Update the expiration date of the file. 


MARK_DIRTY E 

CHECR EXP] IRE: i 

per! veB=, VCB: 
PRIMARY vee vee : "AVN NEQ 0 


ts = VECTOR CCURRENT_RVTCRVTSL_UCBLSTJ, 0); 
THEN N LEAVE CHECK_EXPIRE; 
PRIMAR Y_vCB = UCBCUCBS. vce); 


SGETTIM (TIMADR = DAY_TIM 
waa: vcBCvcesa TRE TAINMAX} #4) NEQ 0 


tk (PRIMARY rane AEF pc ff DAY_TIME, DAY_TIME2); 
CMPQ (IDENT _AREA F 1280 EXPDATE), GEQ> DAY.TIME2) 

EN LEAY CHECK 4 

CHSMOVE (8, DAY KPIME iDeNT _LAREACF 12$Q_EXPDATE); 


END; ! end of block CHECK_EXPIRE 
Increment the revision count of the file if specified. 


$uB 

IF 

THE 
CH 


1f_ .MODECO) 
THEN 


BEGIN 
1DEMT AREACFI2$W_REVISION) = IDENT AREACF 12$w REVISION] + 1; 
SMOTE (8, DAY_TIME, IDENT_AREALF12$Q_REVDATE)); 


: Clear the backup date if requested. 
IF .MODEC1) 
THEN 


att 
IDENT_AREACF12$Q_BAKDATE]) = 0; 
IDENT” “AREALF I12$Q_BAKDATEJ)+4 = 0; 


END; ! end of routine SET_REVISION 
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REIDEACCS. B32; (39 


sEXTRN SYSSGETTIM 


007 .ENTRY SET RE REVISION, Save R2,R3,R4,R5,R6 : 1452 : 

f 10 ¢ SUBL2 : | : 

04 aC MOV HEADER, R1 : 1512 : 

0 61 9A MOV2ZBL (R1), R : ; 

6140 3€ ¢ MOV (R1)(ROJ, IDENT_AREA : ; 

01 al 9A 0001 mOVZBL 1(R1), RO : 1513) : 

1 9a 00074 MOV gL (R1), R2 : ; 

g Ce 17 SUBL2 Re, R09 : ; 

1 : 1A CMPL RO, #23 ; 1514) ; 

D 1 0001D BLSSuU 9 ; : 

31 DD O001F PUSHL RI : 1520) : 

00006 cf 4 8 1 CALLS #1, MARK_D : | ; 

2 98 AA D 6 MOVL “1 6¢(BASED, RPRIMARY _vCB : 1532) : 

OE A2 8 A TSTW ©: 14( PRIMARY. VCB) : 1523. ; 

OE D BEQL 1$ : : 

50 9¢ AA OD f MOVL  =100(BASE), RO + 1526) ; 

0 44 ad 00 00 3 MOVL 68(RO), uc : | : 

4E 1 0 BEQL 4 + 1527 ; 

52 4 A p 039 MOVL § 52(UCB), PRIMARY_VCB + 1529 F 

8 AE 9F 00030 18 PUSHAB DAY_TIM IME > 1532 ; 

000000006 00 01 FB 0004 CALLS #1, SYSSGETTIM ; : 

78 A2 D5 0004 TSTL 120(PRIMARY_VCB) + 1533 ; 

3B 13 OO04A BEQL «= 7$ : : 

6E 08 AE 7 A2 C3 0004 SUBL3 116(PRIMARY VCB) DAY_TIME, DAY_TIME2 + 1536) ; 
AE C AE 00 0005 MOVL DAY_TIME, DAY 3 | : 

A 8 A2 09 0005 SBwC 120TPRIMARY "vte). DAY_TIME2 3 : 

5 01 CE 0005¢ MNEGL #1, RO + 1537 ; 

06 AE 2A «AB OD1 «0005F CMPL 420 IDENT_AREA), DAY_TIME2 : | : 

OE 19 000 BLSS 48 : : 

08 14 000 BGTR 28 ; | : 

6E 26 Ab D1 000 CMPL 8(IDENT_AREA), DAY_TIME2 : ; 

4 13 9006¢ BEQL § : : 

4 1F O06 BLSsu.  4$ ; : 

50 D6 000 33 INCL RO ; : 

50 06 00072 3$ INCL RO : : 

O2 FFFFFFFF  8F 50 CF 00074 4$ CASEL RO, #1, #2 ; : 
0008 0008 0006 0007C 5$ «WORD 5-380: ; : 
73-53" : ; 

26 A 6E 08 28 9082 $$: MOVC3 #8, DAY_TIME2, 38(IDENT_AREA) + 1539 : 
09 08 ac €9 0 $: BLBC bE : 1346 ; 

16 OA 86 INCW 20CIDENT_A : 154 3 

1E as 08 AE 0 6 MOVC3 #8, DAY WIRE  S0CIDENT _AREA) : 1550 5 
0 08 ac 1 gi 8$: BBC : 1556 ; 
2—E Ad 7?C 00099 CLRQ 46(IDENT_AREA) : 1559 ; 

04 0009C 9$: RET : 1563 : 


; Routine Size: 157 bytes, Routine Base: S$CODE$ + 0297 


1564 
; $78 1385 1 END 
3; oF 1566 0 ELUDOM 


ERC? feet ara Eye Renee | 


AC 18. -1 12:4 VAX-11 Bliss-32 V4.0-742 17. 
Phesbb0 1 ~360-1383 99:48:99 DISKSVMSMAST TERSCFIIX.SR RCJDEACCS.832;1 goae (4) | ve 
; PSECT SUMMARY 
3 Name Bytes Attributes 
; SCODES 820 NOVEC,NOWRT, RD, EXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
; soceeee= Symbols -------- Pages Processing 
. File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBILIB.L32;1 18619 76 0 1000 00:01.9 
; COMMAND QUALIFIERS 


; Size: 820 e + 0 data bytes 
; Run Time: ght-s 

; Elapsed Time: 

3 Lexemes/CPU-Min: 660 


y Ue Used: 
; Compilation Complete 


5" pages 


| 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1S$:DEACCS/OBJ=0BJ$:DEACCS MSRC$:DEACCS/UPDATE=(ENH$: DEACCS) 
| 
| 
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